-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2152
-- card count: 1
-- first card id: 3103
-- list block id: 2336
-- print block id: 51
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 17728 bytes
-- stack block size: 8192 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- Copyright 1987 Apple Computer, Inc.

on idle
  if the short time ≠ field "loc time"
  then put the short time into field "loc time"
  pass idle
end idle

on openStack
  show message box
end openStack

on dial string
  global dialNumber
  put string into dialNumber
  stripNonDials
  if dialNumber is empty then exit dial
  put the length of dialNumber into dialLength

  if dialLength < 7 then
    doDial bkgnd field preamble & dialNumber

  else if dialLength = 7 then
    put char 1 to 3 of dialNumber into prefix
    repeat with index = 1 to number of words in field "Local Prefixes"
      if word index of field "Local Prefixes" is prefix then
        doDial field preamble & dialNumber
        exit dial
      end if
    end repeat
    answer "Is this a local (non-toll) call?" with No or Yes
    if it is "Yes" then
      put prefix & space after field "Local Prefixes"
      doDial field preamble & dialNumber
    else doDial field preamble & field "toll prefix" & dialNumber

  else if dialLength = 8 then
    if offset(field "toll prefix", dialNumber) is 1 then
      doDial field preamble & dialNumber
    else dialInternational

  else if dialLength = 9 then
    dialInternational

  else if dialLength = 10 then
    if offset(field "area code", dialNumber) is 1 then
      repeat for the length of field "area code"
        delete char 1 of dialNumber
      end repeat
      dial dialNumber
    else if char 2 of dialNumber is "0" or char 2 of dialNumber is "1"
    then doDial field preamble & field "long dist preamble" & dialNumber
  else dialInternational

else if dialLength = 7 + the length of field "long dist preamble" + the length of field "area code" then
  if offset(field "long dist preamble", dialNumber) is 1 then
    get char 2 to 4 of dialNumber
    if it is field "area code" then
      delete char 1 to 4 of dialNumber
      dial dialNumber
    else
      delete char 1 to the length of field "long dist preamble" of dialNumber
      Dodial field preamble & field "long dist preamble" & dialNumber
    end if
  else dialInternational

else if dialLength > 11 then dialInternational

end dial

on doDial dialNumber
  put "Now dialing: " & dialNumber

  if hilite of bkgnd button "modem (tone dialing)"
  then send "dial" && quote & dialNumber & quote && "with modem" && quote & "ATS0=0DT" & quote to HyperCard

  if hilite of bkgnd button "modem (pulse dialing)"
  then send "dial" && quote & dialNumber & quote && "with modem" && quote & "ATS0=0DP" & quote to HyperCard

  if hilite of bkgnd button "speaker (tone dialing)"
  then send "dial" && quote & dialNumber & quote to HyperCard

  put empty
end doDial

on dialInternational
  global dialNumber
  if offset(field "intl preamble", dialNumber) is 1
  then repeat for the length of field "intl preamble"
  delete char 1 of dialNumber
end repeat
set lockScreen to TRUE
push this card
go "Area Codes"
find char 1 to 2 of dialNumber in field "Country Code"
if the result is "not found" then
  put empty
  pop card
  doDial field preamble & dialNumber
  exit dialInternational
else if char 3 of field "Country Code" is not "not found" then
  find char 1 to 3 of dialnumber in field "Country Code"
  if the result is "not found" then
    put empty
    find char 3 to 5 of dialnumber in field "area code"
  end if
end if
answer "Dial " & field "Country" & "?" with Cancel or OK
pop card
set lockScreen to FALSE
if it is "OK" then
  doDial field preamble & field "intl preamble" & dialNumber & "#"
end if
end dialInternational

on stripNonDials
  global dialNumber
  repeat with index = the length of dialNumber down to 1
    if char index of dialNumber is not in "0123456789ABCD#*"
    then delete char index of dialNumber
  end repeat
end stripNonDials